unit UnitXFPublic;

interface

uses classes ,SysUtils, Messages ;

const
  ERR_MAPTYPE_NO_EXIST = 30001 ;
  WM_SET_MAPTYPE  = WM_USER + 1001;
type

  TXFException = class(Exception)
  private
    FErrCode : Integer ;
  protected
  public
    constructor create(ErrCode : integer ;ErrMsg : string);
    property ErrCode : integer read FErrCode ;
  end;

implementation

{ TXFException }

constructor TXFException.create(ErrCode: integer; ErrMsg: string);
begin
  inherited create(ErrMsg);
  FErrCode := ErrCode ;
end;

end.
